home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Applications / Macintosh Tracker 1.20 / source / Tracker Client Folder / Core 18⁄March⁄1994 / CHScrollBar.c < prev    next >
Encoding:
Text File  |  1993-06-06  |  10.3 KB  |  235 lines  |  [TEXT/KAHL]
  2.  
  3. void            CHScrollBar::DoMouseDown(MyEventRec Event)
  4.     {
  5.         long                Length;
  6.         LongPoint        MouseLoc;
  7.         MyBoolean        OutOfRange;
  8.         short                XorPosition;
  9.         MyBoolean        ImageXored;
  10.  
  11.         CurrentOperation = FindPart(MyGlobalToLocal(Event.Where));
  12.         switch (CurrentOperation)
  13.             {
  14.                 case mLeftOne:
  15.                     if (HScrollable && Enabled)
  16.                         {
  17.                             do{
  18.                                     RedrawHBar();
  19.                                     if (CurrentOperation == mLeftOne)
  20.                                         {
  21.                                             Owner->Hook(HScrollLeftOne,0,0);
  22.                                         }
  23.                                     CurrentOperation = FindPart(MyGlobalToLocal(GetLongMouseLoc()));
  24.                                     if (CurrentOperation != mLeftOne)
  25.                                         {
  26.                                             CurrentOperation = mNone;
  27.                                         }
  28.                                     RelinquishCPU();
  29.                                     SendIdleToAll();
  30.                                 } while (WaitMouseUp());
  31.                             CurrentOperation = mNone;
  32.                             RedrawHBar();
  33.                         }
  34.                     break;
  35.                 case mLeftPage:
  36.                     if (HScrollable && Enabled)
  37.                         {
  38.                             do{
  39.                                     RedrawHBar();
  40.                                     if (CurrentOperation == mLeftPage)
  41.                                         {
  42.                                             Owner->Hook(HScrollLeftPage,0,0);
  43.                                         }
  44.                                     CurrentOperation = FindPart(MyGlobalToLocal(GetLongMouseLoc()));
  45.                                     if (CurrentOperation != mLeftPage)
  46.                                         {
  47.                                             CurrentOperation = mNone;
  48.                                         }
  49.                                     RelinquishCPU();
  50.                                     SendIdleToAll();
  51.                                 } while (WaitMouseUp());
  52.                             CurrentOperation = mNone;
  53.                             RedrawHBar();
  54.                         }
  55.                     break;
  56.                 case mRightOne:
  57.                     if (HScrollable && Enabled)
  58.                         {
  59.                             do{
  60.                                     RedrawHBar();
  61.                                     if (CurrentOperation == mRightOne)
  62.                                         {
  63.                                             Owner->Hook(HScrollRightOne,0,0);
  64.                                         }
  65.                                     CurrentOperation = FindPart(MyGlobalToLocal(GetLongMouseLoc()));
  66.                                     if (CurrentOperation != mRightOne)
  67.                                         {
  68.                                             CurrentOperation = mNone;
  69.                                         }
  70.                                     RelinquishCPU();
  71.                                     SendIdleToAll();
  72.                                 } while (WaitMouseUp());
  73.                             CurrentOperation = mNone;
  74.                             RedrawHBar();
  75.                         }
  76.                     break;
  77.                 case mRightPage:
  78.                     if (HScrollable && Enabled)
  79.                         {
  80.                             do{
  81.                                     RedrawHBar();
  82.                                     if (CurrentOperation == mRightPage)
  83.                                         {
  84.                                             Owner->Hook(HScrollRightPage,0,0);
  85.                                         }
  86.                                     CurrentOperation = FindPart(MyGlobalToLocal(GetLongMouseLoc()));
  87.                                     if (CurrentOperation != mRightPage)
  88.                                         {
  89.                                             CurrentOperation = mNone;
  90.                                         }
  91.                                     RelinquishCPU();
  92.                                     SendIdleToAll();
  93.                                 } while (WaitMouseUp());
  94.                             CurrentOperation = mNone;
  95.                             RedrawHBar();
  96.                         }
  97.                     break;
  98.                 case mHBox:
  99.                     if (HScrollable && Enabled)
  100.                         {
  101.                             if ((Event.Modifiers & optionKey) != 0)
  102.                                 {
  103.                                     short        OldMouseLoc = -32767;
  104.  
  105.                                     ImageXored = False;
  106.                                     /* setting up drawing environment */
  107.                                     SetUpPort();
  108.                                     Length = PageRightZoneExt.x + PageLeftZoneExt.x;
  109.                                     do{
  110.                                             static LongPoint    HXorBoxExt = {16,14};
  111.  
  112.                                             /* removing any image already there */
  113.                                             do
  114.                                                 {
  115.                                                     MouseLoc = MyGlobalToLocal(GetLongMouseLoc());
  116.                                                     RelinquishCPU();
  117.                                                     SendIdleToAll();
  118.                                                 } while ((MouseLoc.x - 16 - 8 == OldMouseLoc) && WaitMouseUp());
  119.                                             SetUpPort();
  120.                                             Window->ResetPen();
  121.                                             Window->SetPenMode(srcXor);
  122.                                             Window->SetPattern(dkGray);
  123.                                             if (ImageXored)
  124.                                                 {
  125.                                                     Window->LFrameRect(LongPointOf(XorPosition + 16,
  126.                                                         Extent.y - 16 + 1),HXorBoxExt);
  127.                                                     ImageXored = False;
  128.                                                 }
  129.                                             /* finding new image position */
  130.                                             OutOfRange = False;
  131.                                             OldMouseLoc = MouseLoc.x - 16 - 8;
  132.                                             XorPosition = OldMouseLoc;
  133.                                             if ((MouseLoc.y < Extent.y - 16 - 24)
  134.                                                 || (MouseLoc.y > Extent.y + 24))
  135.                                                 {
  136.                                                     OutOfRange = True;
  137.                                                 }
  138.                                             if (XorPosition < 0)
  139.                                                 {
  140.                                                     XorPosition = 0;
  141.                                                 }
  142.                                             if (XorPosition > Length)
  143.                                                 {
  144.                                                     XorPosition = Length;
  145.                                                 }
  146.                                             /* putting new image position */
  147.                                             if (!OutOfRange)
  148.                                                 {
  149.                                                     Window->LFrameRect(LongPointOf(XorPosition + 16,
  150.                                                         Extent16;
  151.         OneLeftZoneExt.x = 16;
  152.         OneRightZoneTL.y = Extent.y - 16;
  153.         OneRightZoneTL.x = Length - 16;
  154.         OneRightZoneExt.y = 16;
  155.         OneRightZoneExt.x = 16;
  156.         if (NumCells <= 1)
  157.             {
  158.                 if (CellIndex == 0)
  159.                     {
  160.                         HScrollable = False;
  161.                         HScrollZoneTL.y = Extent.y - 16;
  162.                         HScrollZoneTL.x = 16;
  163.                         HScrollZoneExt.y = 16;
  164.                         HScrollZoneExt.x = Length - 16 - 16;
  165.                     }
  166.                  else
  167.                     {
  168.                         NumCells = -NumCells;
  169.                         goto TryAgainPoint;
  170.                     }
  171.             }
  172.          else
  173.             {
  174.              TryAgainPoint:
  175.                 HScrollable = True;
  176.                 if (NumCells == 1)
  177.                     {
  178.                         if (CellIndex < 0)
  179.                             {
  180.                                 BoxPos = 0;
  181.                             }
  182.                          else
  183.                             {
  184.                                 BoxPos = Length - 3*16;
  185.                             }
  186.                     }
  187.                  else
  188.                     {
  189.                         BoxPos = ((Length - 3*16)
  190.                             * ((long double)CellIndex) / ((long double)(NumCells - 1)));
  191.                         if (BoxPos < 0)
  192.                             {
  193.                                 BoxPos = 0;
  194.                             }
  195.                         if (BoxPos > Length - 3*16)
  196.                             {
  197.                                 BoxPos = Length - 3*16;
  198.                             }
  199.                     }
  200.                 PageLeftZoneTL.y = Extent.y - 16;
  201.                 PageLeftZoneTL.x = 16;
  202.                 PageLeftZoneExt.y = 16;
  203.                 PageLeftZoneExt.x = BoxPos;
  204.                 HScrollZoneTL.y = Extent.y - 16 + 1;
  205.                 HScrollZoneTL.x = BoxPos + 16;
  206.                 HScrollZoneExt.y = 14;
  207.                 HScrollZoneExt.x = 16;
  208.                 PageRightZoneTL.y = Extent.y - 16;
  209.                 PageRightZoneTL.x = BoxPos + 16 + 16;
  210.                 PageRightZoneExt.y = 16;
  211.                 PageRightZoneExt.x = (Length - 3*16) - BoxPos;
  212.             }
  213.     }
  214.  
  215.  
  216. void            CHScrollBar::SetPosition(long NewCellIndex, long NewNumCells)
  217.     {
  218.         CellIndex = NewCellIndex;
  219.         NumCells = NewNumCells;
  220.         RecalcScrollRects();
  221.         if ((!Suspended) && Enabled)
  222.             {
  223.                 RedrawHBar();
  224.             }
  225.     }
  226.  
  227.  
  228. void            CHScrollBar::RecalcLocations(LongPoint EnclosureVisRectStart,
  229.                         LongPoint EnclosureVisRectExtent, LongPoint EnclosureOrigin)
  230.     {
  231.         inherited::RecalcLocations(EnclosureVisRectStart,EnclosureVisRectExtent,
  232.             EnclosureOrigin);
  233.         RecalcScrollRects();
  234.     }
  235.